home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / TestPointSpeed.asc < prev    next >
Text File  |  1980-03-10  |  669b  |  35 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. Screen Open 0,640,256,16,$8000
  12. Curs Off : Flash Off : Cls 0
  13. '
  14. E=Execall(-132)
  15. '
  16. 'Amos
  17. Timer=0
  18. For T=0 To 20000
  19.    A=Point(100,100)
  20. Next T
  21. A=Timer
  22. '
  23. 'IntuiExtend 
  24. Timer=0
  25. For T=0 To 20000
  26.    B=Wb Point(100,100)
  27. Next T
  28. B=Timer
  29. Print "Amos : ";A
  30. Print "IExt : ";B
  31. '
  32. E=Execall(-138)
  33. 'AMOS=150-120
  34. 'IExt=101-52 
  35.